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INTRODUCTION 

''Tim  AMMRC  floating  point  (FP)  package,  FPP1,  for  PDP-8  computers  was  developed 
from  the  Digital  Equipment  Corporation  (DEC)  package,  YQ4B  (4/70>,\with  the  primary 
aim  of  reducing  its  size,  so  that  an  adequate  calculation  and  control  software 
package  could  be  fit  into  the  4K  memory  of  a  PDP-8  that  was  used  to  control  an 
X-ray  diffractometer  in  a  wide  variety  of  experiments  in  the  AMMRC  program  of  mate¬ 
rials  research.  It  should  be  particularly  useful  for  systems  with  memory  size 
limitations,  as  in  the  older  PDP-8' s  or  as  part  of  an  arithmetic  package  committed 
to  ROM  in  modern  units.  It  follows  essentially  the  same  approach  and  basic  pro¬ 
cedures  as  YQ4B,  the  major  changes  being  the  exclusion  of  E-format  input  and  output 
(I/O)  and  the  use  of  a  different  square-root  algorithm,  and  it  retains  the  same 
accuracy,  generally  six  decimal  digits  in  normal  computations.  It  has  the  same 
mnemonic  and  numerical  codes  for  the  basic  FP  instructions  and  function  subroutines 
and  many  of  the  same  page  0  locations  and  address  tags  as  the  DEC  package,  so  it 
should  be  compatible  with  minimal  changes  with  many  programs  using  a  4K  memory. 

The  linkages  for  multiple-field  operations  are  left  to  those  users  to  supply. 

FPP1  includes  all  the  operations  of  YQ4B,  excluding  E-format  I/O,  plus  two- 
word  fix  and  float  routines  and  an  improved  output  roundoff.  It  occupies' locations 
0007,  0015,  0040  through  0064,  and  5512  through  7577, 'for  a  total  of  1101  words, 

26%  less  than  the  1492  words  of  YQ4B,  the  saving  being  approximately  10%  of  a  4K 
memory. It  is  not  easily  relocatable;  a  number  of  subroutines,  constants,  and 
storage1 registers  are  positioned  so  that  their  indirect  addresses  occur  as  regular 
program  words  (e.g.,  JMP  I  XXX)  to  reduce  storage  requirements.  Its  data  I/O  to 
the  outside  world  is  handled  by  two  subroutines,  READIN  and  TYPOUT,  coded  here  for 
a  teletype  (TTY). 

FPP1  is  a  package  of  41  subroutines,  ranging  from  simple  register  shifts  to 
function  series  expansions  involving  other  subroutines  including  the  FP  system 
itself,  which  allows  the  user  to  program  mathematical  computations  in  FP  arithmetic 
through  a  set  of  simple  block  instructions,  each  of  which  calls  up  the  detailed 
programming  necessary  for  that  complete  operation.  We  shall  first  outline  the 
general  features  of  the  package  and  discuss  how  to  use  it.  At  the  end  we  add  a 
few  general  comments  and  give  a  complete  PAL  III  pass  3  listing  of  the  assembled 
package  for  those  interested  in  the  programming  details. 

GENERAL 

In  the  FPP1/YQ4B  convention  a  normalized  FP  number  has  the  form. 


so. 


v  5  "  /  ■ 


X  -  Mantissa  •  2Exp°nent  , 

where  the  Mantissa,  a  signed  fraction  with  0.5  £  |Mantissa|  <  1.0,  is  specified  in 
two  words  by  a  sign  and  23  significant  binary  bits,  and  the  Exponent,  a  signed 
binary  integer  with  | Exponent |  <  2048,  is  specified  in  two' s-complement  form  in  one 
word.  It  is  stored  as  three  consecutive  words:  the  Exponent,  then  the  high-order 
(more  significant)  and  the  low-order  Mantissa  words.  The  Exponent  address  serves 
as  the  address  of  that  FP  number. 


To  work  with  these  three-word  FP  numbers,  FPP1/YQ4B  uses  a  three-word  'pseudo' 
floating  accumulator  (FAC),  consisting  of  locations  0044,  0045,  and  0046,  labelled 
EXP,  HORD,  and  LORD,  respectively.  To  maintain  accuracy,  some  operations  include 
at  intermediate  stages  a  third  word  for  still  lower  order  Mantissa  bits  24  thru 
35;  that  third  Mantissa  word  for  FAC  is  location  0047,  labelled  0VER2. 

FP  operations  generally  involve  doing  something  to  or  with  FAC.  (A  reference 
to  manipulation  of  a  register  or  address  simply  means  a  manipulation  of  its  con¬ 
tents.)  When  the  operation  involves  another  FP  quantity,  e.g.,  adding  Y  to  FAC, 
that  quantity  is  first  brought  to  the  operand  register  (OP),  and  then  the  operation 
is  carried  out  between  OP  and  FAC.  The  OP  consists  of  locations  0040,  0041,  and 
0042,  labelled  EX1,  AC1H,  and  AC1L,  respectively,  with  a  third  word  available  for 
OP  Mantissa  bits  24  through  35  at  location  0043,  labelled  0VER1. 

To  carry  out  FP  operations  at  some  point  in  a  program,  the  first  step  is  a 
jump  to  the  FP  Interpreter  subroutine.  Each  succeeding  word  in  the  program  is  then 
interpreted  as  a  FP  instruction,  and  this  mode  continues  until  the  FP  Exit  instruc¬ 
tion  is  reached,  which  returns  the  computer  to  normal  interpretation/operation  at 
the  next  program  word. 

The  FP  Interpreter  subroutine  begins  at  location  7000.  That  address  is  stored 
at  location  0007,  so  the  usual  jump  entry  to  the  Interpreter  is  obtained  by  the 
instruction:  JMS  I  0007  .  Entrance  to  the  FP  mode  clears  the  computer  AC,  but  it 
does  not  affect  FAC. 


FP  INSTRUCTIONS 

There  are  seven  FP  instructions  that  carry  out  the  basic  add/subtract/multiply/ 
divide/get /put /normalize  operations.  They  are  written  in  the  usual  PDP-8  memory 
reference  instruction  format:  bits  0,  1,  and  2  contain  a  non-zero  operation  code, 
and  the  remaining  bits  specify  the  relevant  address  in  the  standard  manner  (bit  3 
for  indirect  address,  bit  4  for  current  page  vs  page  0,  and  bits  5  through  11  for 
the  page  address).  These  basic  FP  instructions,  referencing  an  address  Y,  are: 

Mnemonic  Op  Code  Operation 

FADD  Y  1  Y  is  added  to  FAC,  and  the  result  left  in  FAC. 

FSUB  Y  2  Y  is  subtracted  from  FAC,  and  the  result  left  in  FAC. 

FMPY  Y  3  FAC  is  multiplied  by  Y,  and  the  result  left  in  FAC. 

FDIV  Y  4  FAC  is  divided  by  Y,  and  the  result  left  in  FAC. 

FGET  Y  5  Y  is  loaded  into  FAC. 

FPUT  Y  6  FAC  is  stored  in  Y. 

FNOR  7  FAC  is  adjusted  to  normalized  FP  form. 

Operations  1  through  5  leave  Y  unchanged,  and  operation  6  leaves  FAC  unchanged. 
Operation  7  involves  only  FAC;  the  address  part  of  this  instruction  is  irrelevant. 

A  set  of  other  instructions  provide  mathematical  functions,  input,  output,  and 
other  manipulative  operations  that  deal  primarily  with  FAC  and  do  not  require  a 
coded  address.  The  complete  octal  code  for  these  'subroutine'  instructions  has  the 
form,  00XY,  where  XY  locates  the  appropriate  entry  in  a  table  of  subroutine  addres¬ 
ses.  These  other  FP  instructions  are: 


Mnemonic 

Octal  Code 

Operation 

SQUARE 

m 

0001 

FAC  is  squared,  and  the  result  left  in  FAC. 

SQROOT 

■ 

0002 

The  square- root  of  FAC  is  calculated,  and  the  result  left 
in  FAC.  A  negative  or  zero  FAC  causes  a  program  halt. 

SIN 

m 

0003 

The  sine  of  FAC  (assumed  in  radians)  is  calculated,  and 
the  result  left  in  FAC. 

COS 

m 

0004 

The  cosine  of  FAC  (assumed  in  radians)  is  calculated, 
and  the  result  left  in  FAC. 

ARCTAN 

* 

0005 

The  arctangent  of  FAC  is  calculated,  and  the  result  (in 
radians,  limited  to  the  range,  ±  ir/2)  left  in  FAC. 

EXP1 

m 

0006 

FAC 

The  exponentiation,  e  ,  is  calculated,  and  the  result 

left  in  FAC. 

LOG 

m 

0007 

The  natural  logarithm  of  FAC  is  calculated,  and  the 
result  left  in  FAC.  A  negative  or  zero  FAC  causes  a 
program  halt. 

INPUT 

- 

0010 

A  numerical  quantity  is  entered  on  the  TTY  and  converted 

to  normalized  FP  form,  and  the  result  left  in  FAC.  A 
detailed  discussion  of  the  input  process  is  given  in  the 
next  section. 


OUTPUT 

0011 

FAC  is  output  in  decimal  format  on  the  TTY,  with  FAC 
lost  afterwards.  A  detailed  discussion  of  the  output 
process  is  given  in  a  later  section. 

NEGATE 

» 

0012 

FAC  is  negated,  and  the  result  left  in  FAC. 

FLOAT 

as 

0013 

The  two-word  binary  integer  in  locations  0057,  0060  is 
converted  to  normalized  FP  form,  and  the  result  left 
in  FAC. 

INVERT 

0014 

The  reciprocal  of  FAC  is  calculated,  and  the  result 
left  in  FAC.  A  zero  FAC  causes  a  program  halt. 

FIX 

as 

0015 

FAC  is  converted  and  rounded  off  to  a  two-word  binary 
integer,  and  the  result  left  in  HORD,  LORD. 

The  addition  of  further  FP  instructions  is  discussed  in  a  later  section. 

Finally,  there  is  the  FP  Exit  instruction: 

FEXT  *  0000  Exit  FP  mode,  return  to  normal  word  interpretation. 

This  exit  clears  the  computer  AC,  but  it  does  not  affect  FAC. 

These  mnemonics  of  course  must  either  be  defined  in  the  program  or  included  in 
the  PAL  Assembler  symbol  table  if  a  program  using  them  is  to  assemble  properly. 

The  use  of  these  FP  instructions  is  illustrated  by  a  PAL  III  pass  3  listing  of 
a  program  to  read  in  two  sides  of  a  right  triangle  and  output  its  hypotenuse: 


*0400 


0400 

4407 

JMS  I  0007 

0401 

0010 

INPUT 

/INPUT  A 

0402 

0001 

SQUARE 

0403 

6213 

FPUT  X 

0404 

0010 

INPUT 

/INPUT  B 

0405 

0001 

SQUARE 

0406 

1213 

FADD  X 

0407 

0002 

SQR00T 

0410 

0011 

OUTPUT 

/OUTPUT  C 

0411 

0000 

FEXT 

0412 

7402 

HLT 

0413 

0000  X, 

0 

/THREE-WORD  STORAGE 

0414 

0000 

0 

0415 

0000 

0 

For  other  examples,  see  FPP1  subroutines  such  as  SQARE  (6772)  and  SQROT  (7156). 


INPUT 

The  FP  Instruction,  INPUT,  causes  a  program  jump  to  the  subroutine,  INPVT 
(7400),  which  accepts  and  converts  a  numerical  value  entered  on  the  TTY.  That 
numerical  value  must  be  entered  in  fixed-point  or  integer  format;  E-format  is  not 
accepted.  An  input  character  string  then  has  the  general  form:  optional  initial 
spaces  (ignored);  a  possible  sign  (+  is  not  needed  and  is  ignored);  the  decimal 
digits  of  the  value  being  entered,  with  appropriately  positioned  decimal  point 
(e.g.,  123.45);  and,  finally,  a  terminator,  which  is  any  character  except  initial 
spaces,  an  initial  sign,  a  decimal  digit,  or  a  decimal  point.  The  TTY  input  rou¬ 
tine,  READIN,  echoes  each  character  as  printed  output,  giving  a  visual  advantage 
to  non-printing  terminators  such  as  a  following  space,  or  a  carriage  return  (which 
is  automatically  followed  by  an  output  line  feed).  The  terminator  stops  the  input 
cycle,  and  the  accumulated  value  is  converted  to  a  properly  signed,  normalized  FP 
number  in  FAC. 

Several  aspects  of  this  routine  should  be  noted: 

1.  Input  of  a  terminator  before  input  of  any  decimal  digits  yields  zero  in 
FAC.  Input  of  a  misplaced  terminator  yields  an  incorrect  value  in  FAC;  recovery 
may  require  restarting  from  the  previous  FP  Interpreter  entry  in  the  program. 

2.  Input  of  a  wrong  number  can  be  corrected  easily  if  recognized  before  input 
of  a  terminator;  typing  a  'rub-out'  restarts  the  input  cycle,  erasing  all  prior 
input  for  that  quantity. 
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3.  A  decimal  point  is  never  a  terminator.  Input  of  a  second  decimal  point 
in  a  character  string  simply  redefines  the  position  of  the  decimal  point  in  that 
number.  If  no  decimal  point  is  included  in  the  character  string,  it  is  assumed  to 
follow  the  last  decimal  digit  (i.e.,  integer  format). 

4.  The  number  entered,  disregarding  decimal  points  and  initial  zeroes,  must 
be  less  than  2^*  -  2  •  10’  (i.e.,  crudely,  no  more  than  nine  significant  digits), 
or  a  program  halt  occurs.  This  limit,  which  appreciably  exceeds  the  23  bit  pre¬ 
cision  of  the  FP  Mantissa,  defines  the  magnitude  of  the  largest  number  that  can  be 
entered  directly  without  program  interruption.  There  is  no  corresponding  smallest 
number  limit,  so  one  method  for  entering  a  number  2^  is  to  enter  its  inverse  and 
then  invert  the  result. 


OUTPUT 


The  FP  instruction,  OUTPUT,  causes  a  jump  to  the  subroutine,  OUTPVT  (7200), 
which  converts  FAC  to  a  decimal  representation  that  is  output  on  the  TTY.  The 
output  can  be  in  either  fixed-point  or  integer  format,  but  not  in  E-format.  The 
format  specifications  are  stored  beforehand  as  two  numbers:  NDEC  (0054),  the 
number  of  digits  to  the  right  of  the  decimal  point;  and  NDIG  (0055),  the  total 
number  of  characters  to  be  output  (not  counting  the  sign  or  decimal  point).  The 
string  of  characters  output  then  has  the  general  form:  initial  spaces,  as  needed 
to  fill  the  format;  the  sign  (if  positive,  a  space);  and  then  the  decimal  digits 
and  decimal  point  for  the  FAC  value,  out  through  NDEC  digits  beyond  the  decimal 
point.  Tf  the  output  is  in  integer  format  (NDEC  =  0),  the  decimal  point  is  not 
output.  The  precision  of  the  FP  Mantissa  allows  only  six  significant  decimal 
digits,  so  zeroes  are  output  for  any  further  digits  required  by  the  format.  The 
last  significant  digit  to  be  output,  a  function  usually  of  the  format,  is  rounded 
off  approximately  to  the  nearest  integer.  If  FAC  =  0.X  *  10N  is  too  large  to  fit 
the  given  format  but  could  fit  it  if  NDEC  were  smaller  (NDIG  >_  N  >  NDIG  -  NDEC), 
then  NDEC  is  reduced  until  the  output  can  fit  (i.e.,  NDEC  =  NDIG  -  N),  and  output 
continues  in  this  left-shifted  format  until  NDIG  and  NDEC  are  redefined.  If  FAC 
is  too  large  to  fit  any  shifted  format  (i.e.,  N  >  NDIG),  then  NDIG  decimal  points 
are  output  instead. 

Two  points  should  be  noted: 

1.  A  carriage  return/ line  feed  sequence  is  automatically  sent  to  the  TTY 
after  each  output  if  SWITI  (0061)  is  non-zero.  That  sequence  can  be  obtained  in 
normal  mode  programming  by  the  instruction,  JMS  I  CRLF  ,  where  CRLF  =  0064. 

2.  FAC  must  be  stored  if  it  is  needed  for  later  steps,  since  FAC  is  obliter¬ 
ated  by  the  output  process. 


OTHER  COMMENTS 

If  Improper  operations  are  encountered,  a  program  halt  occurs.  There  are  five 
such  halts  in  FPPl,  as  follows: 

Address  Error 

5562  FAC  is  too  large  to  be  fixed  as  a  two-word  integer. 

5700  The  logarithm  argument  is  zero  or  negative. 

6304  The  divisor  is  zero. 

7125  The  FP  instruction,  00XY,  is  not  a  valid  code. 

7445  The  input  number  exceeds  the  limiting  size. 

Easy  recovery  is  possible  only  for  the  last  of  these,  where  actuating  CONTINUE  and 
then  entering  a  terminator  will  still  yield  proper  input  conversion. 

Input  and  output  of  ASCII  characters  to  the  external  world  are  handled  by 
subroutines  READIN  (7370)  and  TYPOUT  (7172),  respectively,  coded  here  for  a  TTY. 
Other  serial  I/O  devices  could  be  used  by  recoding  these  two  routines. 

Other  address-less  FP  instructions  allowing  the  coded  form,  00XY,  such  as 
functions  and  manipulations  of  FAC  or  conditional  skips,  can  easily  be  added  to 
the  present  set.  The  necessary  steps  are: 

1.  Enter  the  subroutine  to  carry  out  the  operation  in  an  arbitrary,  convenient 
region  of  memory. 

2.  Enter  ADDRESS-1  of  this  subroutine  in  the  first  empty  space  in  the  sub¬ 
routine  address  table  -  here,  5776.  The  position  of  the  entry  in  the  table  defines 
its  octal  code  -  here,  0016. 

3.  Decrement  MNSBR  (7142)  and  increment  TABL2  (7057). 

4.  Add  the  mnemonic  code  for  the  operation  to  the  PAL  symbol  table. 

The  added  subroutine  may  itself  make  routine  use  of  the  FP  mode  and  the  basic 
FP  instructions,  tyt  if  it  is  also  to  use  FP  ’subroutine’  instructions  (OOXY  codes) 
care  must  be  taken  to  save  pointers  [see,  e.g.,  the  square-root  subroutine,  SQROT 
(7156)]  and  to  avoid  overlapping  use  of  storage  registers.  The  subroutine  address 
table,  TABLE2  (5761  ff),  presently  has  room  for  two  more  entries,  but  it  can  be 
moved  to  allow  room  for  many  more;  the  FP  Interpreter  is  capable  of  identifying 
codes  up  to  0177. 

Finally,  it  is  not  necessary  to  enter  the  FP  mode  to  use  these  subroutines; 
any  of  them  can  be  accessed  by  a  normal  indirect  jump  subroutine  instruction, 

JMS  I  YYY.  Only  one  caution  is  needed:  if  the  double  precision  binary  multiplica¬ 
tion  routine,  DMULT  (6200),  is  used,  its  preset  return  address,  7153,  should  be 
restored  afterwards  for  possible  use  by  a  FP  divide  instruction. 
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DISCUSSION 


FPP1  was  developed  from  the  DEC  package,  YQ4B,  with  the  primary  objective  of 
reducing  its  size  while  retaining  most  of  its  capabilities.  The  effort  centered 
on  eliminating  duplication  and  wasted  space  and  tightening  up  the  programming,  while 
retaining  essentially  the  same  basic  procedures  and  algorithms  and  the  same  compu¬ 
tational  accuracy.  This  compaction  has  been  surprisingly  successful;  the  final 
package,  including  several  extra  routines,  requires  391  fewer  words  of  storage,  a 
savings  of  almost  10%  of  a  4K  memory. 

There  are  a  few  differences  about  FPP1  that  should  be  noted: 

1.  E-format  I/O  is  not  available.  This  could  present  a  problem  for  some 
types  of  calculations,  but  it  was  not  at  all  restrictive  when  FPP1  was  used  as 
part  of  the  calculation  and  control  software  for  a  wide  range  of  X-ray  diffrac¬ 
tion  experiments,  and  it  saved  space. 

2.  The  square-root  is  calculated  by  the  sequence  of  operations,  logarithm/ 
divide  by  two/exponentiation,  which  involves  working  in  the  FP  mode  to  depth  two. 
This  may  be  somewhat  slower  than  the  Newton  iteration  approach,  but  it  saves  sig¬ 
nificant  space. 

3.  Arctan  (x) ,  for  0.5  ^  x  <  2.0,  is  calculated  from  the  expansion, 


tan  ^x 


1  3 
Ty 


+ 


,  where  y 


x  -  1 
x  +  1 


which  converges  more  rapidly  in  this  range  than  do  the  usual  expansions  for  the 
small  x  and  large  x  ranges,  and  which  did  not  require  many  extra  words. 

4.  The  output  is  rounded  off  [subroutine  RNDOUT  (5512)]  by  adding  0.5  •  10N 
to  FAC,  where  X  •  10^  is  the  last  significant  digit  to  be  typed,  which  works  quite 
well  except  when  all  six  significant  digits  are  output  and  the  number  is  large. 
This  is  a  cosmetic  extravagance,  using  33  words,  which  is  easily  deleted. 

A  complete  PAL  III  pass  3  listing  and  symbols  follow.  It  includes  many  com¬ 
ments  to  help  in  understanding  the  general  FP  approach  and  procedures  and  in  fol¬ 
lowing  the  detailed  programming.  Its  listed  date  marks  the  recent  revision  in 
preparation  for  this  documentation  that  added  the  cosmetic  output  roundoff  and 
modified  slightly  the  I/O  routines;  the  basic  package  was  developed  several  years 
ago  and  has  been  heavily  used.  The  user  is  urged  to  add  other  changes,  as  time 
permits,  as  an  educational  exercise. 

It  is  hoped  that  both  the  FPP1  package  and  its  documentation  will  be  useful 
to  the  community  of  PDP-8  users. 


/FLOATING  POINT  PACKAGE  -  AMMRC  FPPl 

/ 

/  P4  t-F.BHUARY  1RK3 

/ 

/THIS  PACKAGE  VAS  DEVELOPED  1-ROY.  THE  PEC  YQ4H 
/VERSION  <  APRIL*  1<»7P>  AMD  REQUIRES  PAX  LESS 
/STORAGE.  THE  '/AJOfi  ADDED  RESTRICTION)  IS  THAT 
/E-rOrtYAl  INJPMT  AMI)  O'lTPI'T  ARF.  MOT  PERMITTED. 
/.YODIHED  A  LA  OR  I  TJ  v.  S  ARE  <1SFI)  Y  OR  SOvE  KMMCTI  OMS« 
/HAS  I  C  I  Ni  STRUCT  I  OM  ivi  Ni  Ev'  OM  ICS  AMD  CODES  ARE 
/fJMC.HAM  ;EP.  S'JAROUTIMES  IMCL'IDED  are: 

/  SQilAHE=r>pf.  1 
/  SQrOOT=OPPP 

/  sim=opp3 
/  C0S=0P04 

/  ARCTA  M=PPP5 
/  EXPT=P006 
/  L0G=P007 

/  I  MpnT  =  wr>  1  A 
/  (J'JTP'»T  =  OPl  1 
/  ME,:ATE=PP  IP 

/  k-L0AT=0P13  [;-LOAT  1  MTFGER  IM  <57. A")! 

/  I  NiVEhT  =  P01  A 
/  HX  =  PP1S 


/ 

/ 


e  op  7 

7  PPP 

♦  PP07 

7Pr*  p 

P  PI  5 

PPPP 

♦  001  5 
AIJT1  . 

0 

P  p/lP 

POPP 

♦  0040 

EX  1  . 

0 

0  041 

PPPP 

AC  1  H  > 

n 

P  04P 

PPPP 

A  C  1  L  » 

p 

P  043 

POPP 

OVER  1 » 

0 

P  044 

POPP 

EXP. 

p 

0  045 

PPPP 

HORD. 

p 

P  04A 

PPPP 

LORD. 

p 

p  047 

PPPP 

OVERP. 

o 

0  PSP 

POOP 

Q’JOL. 

p 

P  PS1 

PPPP 

LOCI  . 

p 

P  PSP 

PPPP 

LOCP . 

p 

P  PS3 

PPPP 

LOC  3 » 

p 

p  P5Z, 

OP  IP 

•MDEC. 

pp  1 0 

P  P5S 

PPPP 

NJDIG. 

pppp 

P  05A 

POP  7 

MBRX  . 

P0P7 

P  PS7 

oooo 

NBRH  I  . 

0 

P  P6P 

OP  00 

NJBRLO. 

0 

P  Pftl 

7777 

SVITI  . 

7777 

P  PAP 

7  770 

READ. 

READI  NJ 

P  0A3 

7  1  7P 

TYPE. 

TYPO’JT 

P  PA 4 

57  P  4 

CRL H  » 

CRLH  PT 

♦  55  1  P 

5  SIP 

0000 

RNDOUT » 

0 

5513 

1  A6P 

TAD 

I  READ 

S  SI  A 

1  PSA 

TAD 

NDEC 

5  SI  S 

7510 

DVTENP  * 

SPA 

5  51* 

53A6 

JMP 

O'JTP 

5  S 1 7 

1350 

TAD 

Mi  6 

S  SPP 

7  500 

SMA 

5  SP1 

7  P00 

CLA 

S  S22 

7  PAP 

CM  A 

S  5P3 

13  50 

TAD 

v  6 

5  5?A 

3A63 

DC  A 

I  TYPE 

5  SPS 

A  AP7 

JtXS 

I  0007 

5  SP6 

67  5? 

FPIJT 

I  XXX 

5  SP7 

57  51 

F  i  ET 

I  ONE 

5  53P 

0000 

FEXT 

5  531 

30AA 

DC  A 

EXP 

5  532 

7  A  1  P 

SKP 

5  533 

A7  1  5 

JMS 

I  DVTENP 

5  53 A 

PA  6  3 

I  SZ 

I  TYPE 

5  535 

5333 

JMP 

.  -P 

5  535 

AA07 

JMS 

I  0007 

5  537 

17  5P 

FADD 

i  I  XXX 

5  5A0 

0000 

FEXT 

S  5A1 

1  0  AA 

TAD 

EXP 

5  SAP 

7  7  50 

SPA 

SNA  CLA 

5  5A3 

57  IP 

JMP 

I  RNDOUT 

5  5AA 

A  7  1  5 

JMS 

I  DVTENP 

5  5AS 

?A6P 

I  SZ 

I  READ 

5  5  A  5 

7  200 

O'JTP. 

CLA 

5  SA7 

57  12 

JMP 

I  RNDOUT 

5  55P 

777P 

M6» 

-6 

5  SSI 

5666 

ONE, 

56*6 

5  55P 

57  3A 

XXX  » 

57  3  A 

5  553 

POPP 

FI  XX. 

0 

5  55A 

10AA 

TAD 

EXP 

5  555 

7510 

SPA 

5  555 

7  PAP 

CLA 

CM  A 

5  S57 

7  0A1 

CM  A 

I  AC 

5  560 

1056 

TAD 

NBRX 

5  561 

7  510 

SPA 

5  569 

7  A  02 

HLT 

5  563 

7  1  60 

T,L 

CML  CMA 

5  56A 

37  7  6 

DC  A 

I  AMNT5 

5  565 

2776 

1  SZ 

1  AMNT5 

5  566 

A777 

J'VS 

I  R  S  H  r  T  3 

5  567 

1  PA7 

TAD 

OVF.HP 

5  57  0 

77  1  P 

SPA 

CLA 

5  57  1 

2PA6 

I  SZ 

LORD 

5  57? 

57  53 

JMP 

1  F  I  XX 

5  57  3 

P0A5 

I  SZ 

HORD 

5  57  A 

7P00 

NOP 

5  57  5 

57  53 

JMP 

I  FI  XX 

5  57  6 

6655 

AKNT5 » 

AMOUNT 

5  57  7 

6670 

RSHFT3. 

fiSHFT 

/ROOM]  'OH  I*  OUTPUT 

/ADDS  0  •  5*  (  1  P*  *  -  N  )  TO  *-  AC 


/ROUNDOFF  SIXTH  DIGIT 
/ROUNDOFF  TO  FORMAT 


/FIX  FAC 

/EXIT  WITH  INTEGER  IM  (HORD.LOPP) 
/[FAC]  <  P.S!  Su I  FT  30(H) 

/  [  FAC]  >  P.s:  SHIFT  [  A  7  (  H  )  -EXP  1 
/[FAC]  >  P**P3;  TOO  LATTE 


/VAS  EXP  =  27(H)? 

/NO:  PI  G->T  SHIFT  MANTISSA 
/ROUND  OF  F  TO  NEAREST  INTEGER 


S  6P0 
5  * 

5  6 
5  6 
5  6 
5  6 


5  636 


5  644 


6  666 


6  664 
6  666 


OPP 

0  ACVIEG » 

0 

/VEG4T'-'  ►  AC 

7  TP 

0 

CLA 

CLL 

1  P4 

l 

TAD 

OVEHP 

704 

1 

CXA 

I  AC 

304 

7 

DC  A 

OVERP 

104 

6 

TAD 

LORD 

7  04 

0 

CXA 

743 

0 

S7.L 

7  IP 

1 

CLL 

I  AC 

304 

6 

DC  A 

LORD 

1P4 

5 

TAD 

-iOhD 

704 

0 

CMA 

743 

0 

S^L 

7  10 

1 

CLL 

I  AC 

304 

5 

DCA 

HORD 

560 

0 

JXP 

1  ACWEG 

POP 

0  KEX  P» 

0 

/►.P.  EXPOWEWTIAL 

104 

5 

TAD 

HORD 

751 

0 

SPA 

4P0 

P. 

JXS 

ACWEG 

/MAKE  KAC  POSITIVE 

3P7 

5 

DCA 

►  LOG 

/M0W-7.ER0  Ir  WAS  >  P 

4P5 

P 

JxS 

SET ODD 

4  A4 

1 

JXS 

I  SETEU 

3P6 

P 

DCA 

SETODD 

366 

4 

DCA 

I  SERSV 

7  35 

0 

CLL 

CLA  CXA  RAR 

467 

4 

-JXS 

I  SER  I  F.7. 

1PP 

5 

TAD 

►'EXP*  6 

366 

4 

DCA 

I  SERSV 

1P7 

5 

TAD 

►  LOG 

766 

0 

S  \J  A 

CLA 

/J AS  ►  AC  VEGATTV/E? 

466 

5 

JXS 

I  l.WV/RTl 

/YES.  IVVF.RT  HES’lLT 

56P 

0 

jxp 

I  KEXP 

/VO 

604 

P  SETEV. 

SETEV/M 

POP 

0  XMP 1  » 

0 

/XAKES  <  X- 1 > /(X* 1  ) 

440 

1 

JXS 

1  P007 

1P6 

6 

►  ADD 

i  OWE 

633 

4 

KPOT 

X 

P67 

3 

►  SMB 

I  DF’JX 

433 

4 

►  DI  0 

X 

OOP 

P 

►  EXT 

564 

P 

JXP 

1  XXFl 

POO 

0  SET ODD. 

0 

/SETS  TERXS  >0R  SEMES 

44  P 

7 

JXS 

1  OP  0  7 

/BEGIVWIV  G  WITH  X 

*33 

4 

►  F'»T 

Y 

633 

7 

KPHT 

TR1 

634 

5 

►  P’JT 

TR  3 

5P6 

6 

►  GET 

OVF. 

634 

P 

►  PUT 

TRP 

635 

n 

pP'IT 

TR4 

POP 

0 

‘•EXT 

665 

P 

JXP 

I  SETODD 

616 

P  SERSV « 

SEP  I ES ♦ 3 

613 

7  IMVHTI. 

1  WORT 

b  666 

PPP1 

OvKi 

PPP1 

5  667 

2PPP 

2PPP 

S  67  P 

P  P  PP 

LO'",:Pi 

ft  ft 

5  67  1 

26  13 

061  7 

5  67  2 

44  1/i 

44  1  4 

5  67  7 

6  1  7/1 

DEUX. 

TWO 

b  67/1 

6145 

SF.HI  EX. 

SERI ES 

5  67  5 

P  P  PP 

1-LOG. 

P 

S  67  6 

1  P4  5 

T4D  HOED 

b  677 

77  SO 

SPA  S'JA  CLA 

b  7 OP 

74P2 

HLT 

b  7  P  1 

1  P/j/i 

TAD  EXP 

5  7  P2 

3060 

DC  A  WBELO 

b  7P3 

3P44 

DC A  EXP 

5  7  04 

42/i2 

JiXS  XX.  PI 

b  7 Pb 

4252 

JXS  SETODD 

b  7  P6 

3252 

DC A  SETODD 

b  7  07 

1  PP7 

TAD  0007 

5  7  IP 

4674 

JXS  1  SERI  E7. 

5  7  11 

1  P6P 

TAD  MBRLO 

b  7  12 

77  IP 

SPA  CLA 

5  7  13 

7  04P 

CXA 

5  7  14 

3P57 

I)C  A  NJBfiRI 

5715 

4757 

JXS  ELOWT 

5  7  16 

44P7 

JXS  i  ppp7 

5  7  17 

3270 

1-  v'Pi’  L0G32 

5720 

1  745 

KADI)  TR 3 

5  721 

1345 

KADI)  TH 7 

5  722 

PPPP 

r  EXT 

5  7  23 

567  5 

JXP  I  KLO‘3 

5  7  24 

PPPP 

C  RL  KRT  . 

P 

5  725 

1332 

TAD  C2 1 5 

5  726 

446  3 

JXS  I  TYPE 

5  7  27 

1333 

TAD  C212 

5  7  30 

4463 

JXS  I  TYPE 

5  7  31 

5724 

JXP  I  CRL1-RT 

5  732 

02  1  5 

C215. 

02  15 

5  7  73 

02  12 

C212. 

P  2  1  2 

5  7  74 

PPPP 

X. 

P 

5  775 

PPPP 

P 

5  7  36 

PPPP 

P 

5  7  37 

PPPP 

T  »<  1  . 

P 

5  7  40 

PPPP 

P 

5741 

PPPP 

P 

5  742 

PPPP 

TR9 » 

P 

5  7  43 

PPPP 

P 

5  744 

PPPP 

P 

5  7  45 

pppp 

TR  3 . 

P 

5  7  46 

PPPP 

P 

5  747 

PPPP 

P 

5  7  5P 

PPPP 

TR/i . 

P 

5  751 

PPPP 

P 

5  7  52 

PPPP 

P 

5  7  53 

pppp 

KL(*WT» 

P 

5754 

4407 

JXS  1  PPP7 

5  755 

5P56 

KGET  WARX 

/LOG  2 

✓  H.P.  THM 

/ WEGAT  1  OE  aRGU,vEMT 

/P.  5  <  X  <  1 


/DO  WOT  RELOCATE 

/OUTPUT  BMr'p  EF 


✓  T  VO  WORD  IWT^G^R  HLO^T 


5756 

7000 

c  MUR 

5  7  V7 

POOP 

F  EXT 

S  76p 

5757 

J*P  I  »•  LOVT 

5  7  6  1 

677  1 

TARLFP* 

SOAhE- 1 

57  62 

7  1  55 

SOPOT" 1 

5  7  53 

5777 

FS1 M- 1 

5  7  54 

603  7 

FCOS-1 

5  7  55 

6065 

ARCTM-  1 

5  755 

56  17 

FEXP- 1 

5  757 

567  4 

FLOG- 1 

5  770 

7  37  7 

I MPVT-  1 

5  77  1 

7  177 

OUTPUT- 1 

5  7  7  2 

5577 

ACMEG- 1 

5  77  7 

57  5P 

FLOVT- 1 

5  774 

6136 

1 MUrtT-1 

5  77  5 

555P 

F I  X  X  -  1 

5  775 

0000 

0 

5  777 

OPOO 

0 

*  6PP0 

5  OOP 

0000 

FS I  M  » 

0 

6  001 

1045 

TAI)  HORD 

6  OOP 

7700 

Stv  A  CL  A 

5  P03 

5906 

.IMP  .+-3 

6  PP4 

4673 

JMS  I  ACMEG1 

5  PP5 

7  196 

CLL  C>L  RTL 

5  OP6 

3266 

DCA  ARCTM 

6  007 

1044 

TAD  EXP 

5  010 

7750 

SPA  SMA  CLA 

6011 

5217 

JMP  .+6 

6  012 

4407 

JMS  I  0007 

5  013 

2372 

FSUB  HALFPI 

6  014 

OPOO 

FEXT 

6  015 

2266 

ISP-  ARCTM 

6  016 

5907 

JM  P  . -  7 

6  017 

4665 

JXS  1  SFTOD 

5  ppo 

1966 

TAD  ARCTM 

6  021 

7010 

RAR 

6  022 

3266 

DCA  ARCTM 

6  023 

7430 

S^L 

6024 

4242 

JMS  SETEUM 

6  095 

7750 

CLL  CLA  CiXA  RAR 

6  026 

4345 

JMS  SERIES 

6  027 

1266 

TAD  ARCTM 

6  030 

7010 

RAR 

6  031 

7630 

S/.L  CLA 

6032 

4633 

JMS  I  ACMEG 1 

6  033 

5600 

ACMEG 1 » 

JMP  I  FSIM 

6  034 

POPP 

FCOS* 

0 

6035 

4  407 

JMS  I  0007 

6036 

1  372 

FAIID  HALFPI 

6  037 

PPPP 

FEXT 

6  040 

4200 

JMS  FSIM 

6  041 

5634 

JYP  I  ECUS 

6  04P 

POOP 

SETEVM* 

0 

5  04  3 

44P7 

JMS  I  0007 

/SMRROUTI  ME  ADDRESS  TA^LE 


/K.P.  SI  ME 


/IS  iY A Q .  .-AC  <  1  ? 
/YES 

/'JO*  REDUCE  ay  PI  /5>. 


/SET  KOP  SI  ME  SERIES 


/ODD  MULTIPLE  OF  FI/P  SUBTRACTED 
/YES*  SET  FOR  COSIME  SERIFS 


/SI GM  REVERSAL  RFQUI  RED? 
/YES 

/  F  •  F  .  COSIMF 


/SETS  TERMS  FOR  SERIFS 
/PEG  I  MM  I  MG  WITH  1 


ft  PA  A 

ft7  AA 

FPUT 

I  TS 1 

'•  PAS 

ft7  7  1 

FPUT 

I  TS  3 

ft  PA ft 

P77  1 

KSUB 

1  TS3 

ft  PA7 

ft7  7  ft 

FPUT 

I  TSA 

ft  PSP 

PPPP 

KF.XT 

6  PS1 

SftAP 

XXMP1 » 

JMP 

I  SETEDN) 

6  PSP 

P0PP 

TF'RM » 

P 

ft  P53 

A  AP7 

JMS 

I  PP07 

ft  P  SA 

577ft 

H  GET 

1  TSA 

6  PSS 

1733 

FADD 

1  U  MO 

ft  P56 

ft7  7  ft 

FPUT 

I  TSA 

ft  PS7 

3777 

TRMSW » 

FMPY 

I  TS? 

ft  PftP 

(-111 

FPUT 

I  TSP 

ft  Pftl 

57  A  A 

KG  FT 

I  TS  1 

ft  PftP 

3775 

FMPY 

I  XX 

ft  P63 

ft7  A  A 

FPUT 

I  TS  1 

ft  pftA 

0P0P 

FEXT 

ft  PftS 

SftSP 

SETOD. 

JMP 

I  TERM 

ft  Pftft 

PPPP 

ARCTM. 

0 

ft  Pft7 

1  PA5 

TAD 

HORD 

ft  P70 

7450 

SMA 

ft  07  1 

5ftftft 

JMP 

I  ARCT'J 

6  P72 

7510 

SPA 

6  07  3 

A633 

JMS 

I  acmf:gi 

ft  P7  A 

3P34 

DC  A 

F  COS 

ft  P7  5 

1  0A/J 

TAD 

EXP 

6  P7  ft 

7  500 

SM  A 

ft  P7  7 

530? 

jmp 

.  >3 

ft  1P0 

4ftft5 

JMS 

I  SFTOD 

ft  1PI 

532ft 

jmp 

READY 

ft  1PP 

7  11P 

CLL 

RAR 

ft  1  03 

7  ft40 

S7.A 

CLA 

ft  1  PA 

531ft 

JMP 

BIGG 

ft  105 

Aft  5 1 

JMS 

I  XXMP1 

ftIPft 

AftftS 

JMS 

I  SETOD 

ft  107 

AA07 

JMS 

I  PP07 

ft  1  10 

5372 

KG  El 

•  HALFPI 

ft  1  1  1 

A33A 

FDIO  TWO 

ft  1  12 

177  1 

FADD  I  TS3 

ft  1  13 

FPUT  I  TS3 

6  1  1A 

PPPP 

FEXT 

ft  1  1  S 

532ft 

JMP 

READY 

ft  1  1ft 

A337 

BIGG* 

JMS 

I  WVRT 

ft.  1  17 

Aft33 

JMS 

I  ACMEG1 

ft  120 

4ft65 

JMS 

I  SETOD 

ft  121 

AAP7 

JMS 

1  PPP7 

ft  122 

5372 

F  GET  HALF  Pi 

ft  123 

177  1 

FADD  I  TS3 

ft  12A 

67  7  1 

FPUT  I  TS3 

ft  125 

P00P 

FEXT 

ft  12ft 

1  PP7 

HEADY# 

TAD 

PPP7 

ft  127 

A  3A  5 

JMS 

SERIES 

6  130 

1  P3A 

TAD 

F  COS 

6  131 

765P 

SMA 

CLA 

ft  1  32 

Aft  3  3 

JMS 

I  ACMEG1 

ft  1  33 

5ftftft 

JMP 

I  ARCTW 

/USF'  A  p  T  w'  R  JMS  SrTOlU) 


/ 1  \JCHEMF\)TS  TSA.  MAXFS  TS4!  T  NJ  TS° 
/ANjp  MAXES  *  **TS4  I  'J  TS1 


/F.P.  ARCTAUGENJT 


/CASK  I  :  KAC  <  P.5 


/CASE  II:  0.5  <  FAC  <  2.P 


/CASE  III:  *>•  P  <  FAC 
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(%  ft  1 34  PP02  TWO,  0002 

£  ft  1 35  2PP0  20PP 

■\  ft  13ft  0000  P000 

£  ft  137  P0P0  IWVRT*  P 

|  ft  140  4665  JKS 

1  6141  4407  JMS 

*3  ft  14P  4775  KDI V 

3  6143  0000  F^XT 

^  6  144  57  37  TS 1  #  JMP 

S  ft  145  0000  SERIFS*  0 

|j  ft  146  3257  DCA 

I  ft  147  324P  DCA 

:•  ft  150  4252  J.YS 

>.  6  151  4252  JMS 

6  152  1665  TAD 

:j  6  153  7  650  SWA 

16154  5362  JMP 

6155  2242  l SZ 

6 156  1242  TAD 

I-  6  157  7010  RAR 

£  6  160  7  630  S7,L  i 

^  6  161  4633  JMS 

S  6162  4407  JKS 

P  6163  4777  FDIV 

K-  6  164  177  1  FADD 

£;•  6  165  677  1  FPIJT 

[-S  6  166  0PPP  FEXT 

67  2050  IS7, 

70  5350  JKP 


’4 


6  221 

7  004 

RAL 

6  222 

1052 

TAD  L0C2 

6  223 

3053 

DCA  LOC  3 

6  224 

7004 

RAL 

.vj 

6  225 

3015 

DCA  AUT1 

■ ;  | 

6  226 

1041 

TAD  AC  1 H 

6  227 

3051 

DCA  LOCI 

6  232 

1046 

TAD  LORD 

6231 

4657 

JftS  I  MULT 

/ AC  1  rf  *  LORD 

6232 

1047 

TAD  OVER2 

« 

6233 

3047 

DCA  0VER2 

'  -  ; 

6  23/1 

7004 

RAL 

-  * 

6  235 

1052 

TAD  L0C2 

6236 

1053 

TAD  LOC 3 

6  237 

3053 

DCA  LOC 3 

V/ 

6  240 

7004 

RAL 

•  '*« 

6  24  1 

1015 

TAD  AUT1 

•  ,*< 

6  2/12 

3015 

DCA  AlJTl 

H 

6  243 

1045 

tad  HORD 

Eel 

624/1 

4657 

JftS  I  fttJLT 

/AC  1 H  ♦  HORD 

■"  . 

6245 

1053 

TAD  LOC 3 

6246 

3046 

DCA  LORD 

6  247 

7004 

HAL 

6  252 

1052 

TAD  L0C2 

r? 

6  251 

1015 

TAD  AlJTl 

6  252 

3045 

DCA  HORD 

6  253 

4660 

JMS  I  DNORftl 

6  254 

2300 

ISX  SMREG 

6  255 

5600 

ACMEG2* 

JMP  I  DMIJLT 

6  256 

5372 

J«P  KACMEG 

6  257 

6743 

MMLT* 

DftPY 

6  260 

6400 

DM OR ft  1  » 

DM  OR  ft 

6  261 

0000 

SIGM. 

0 

/SET  SIGMS  OF  KAC  AMD 

OP 

6262 

7  144 

CLL  CftA  RAL 

/■ 

6263 

3300 

DCA  SMREG 

6  264 

1045 

TAD  HORD 

b 

6265 

7700 

MtlLSW# 

SftA  CLA 

6  266 

527  1 

JftP  •  ♦  3 

6  267 

4655 

JftS  I  ACMEGP 

/MAKE  KAC  POSITIVE 

6  27  0 

23(^0 

IS7.  SMREG 

6  27  1 

1041 

TAD  AC  1 H 

6  272 

0000 

SMSW » 

0 

/ftAKE  OP  POSITIVE  KOR 

ftlJLTI  PLY 

6  27  3 

5661 

JftP  I  SIGM 

/ft AKE  OP  MEGATIVE  FOR 

DI  VI DF 

6  87  4 

47  01 

JftS  1  MEGOP 

6  27  5 

2300 

IS7.  SMREG 

6  27  6 

5661 

JftP  I  SIGM 

6  277 

5661 

JftP  I  SIGM 

-  *j 

^  - 

6  300 

0000 

SMREG  * 

0 

i 

6  301 

7060 

MEGGP. 

MEG 

.**• 

6  302 

1051 

D 1  V# 

TAD  LOCI 

/OPCODE  4 

V 

6  3P3 

7650 

SMA  CLA 

'-V 

6  304 

7402 

HLT 

/OP  IS  7.  FR  0 

'■-V 

6  305 

10  40 

TAD  EX  1 

*  « 

6  306 

7041 

CftA  1  AC 

sa 

6  307 

3040 

DCA  EX  1 

■' . 

6  310 

4774 

JftS  I  'IMKLW1 

/MMPERRLOW? 

,  < 
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4775 
5370 
1  376 
3P7? 
4P61 
7  300 
305? 

3050 
1  37  7 
3053 
104P 
1  046 

3051 
7  004 
1041 

1045 
74P0 
5336 

3045 
1051 

3046 
7P00 
1050 
7  004 
3050 
1  05P 
7004 
305P 

1046 
7  004 
304  6 

1045 
7004 

3045 
P053 
53P3 
104? 

1046 
7P04 
1041 
1045 
7P10 

3047 
1050 

3046 
105? 
3045 
4  660 
P300 
4655 
5600 
651  1 
6655 
77  10 
7751 


>  -- 


DVX» 


EX  I T 1 » 

FACMEG, 

»JMHLW  1  . 
A  y  \j  t  l » 
Dl V sv» 
CM?3» 


JMS 

I  ammti 

JMP 

EXI  T1 

TAL) 

Dl  VSW 

DCA 

SMSW 

JMS 

SIG\J 

CLA 

CLL 

DCA 

L0C9 

DCA 

OUOL 

TAD 

CMP  3 

DCA 

L0C3 

TAD 

AC  1  L 

TAD 

LORD 

DCA 

LOCI 

HAL 

TAD 

AC  1  H 

TAD 

HORD 

SML 

JMP 

•  ♦  4 

DCA 

HORD 

TAD 

LOCI 

DCA 

LORD 

CLA 

TAD 

COOL 

RAL 

DCA 

POOL 

TAD 

L0C2 

RAL 

DCA 

LOC? 

TAD 

LORD 

HAL 

DCA 

LORD 

TAD 

HORD 

RAL 

DCA 

HORD 

JSZ 

L0C3 

JMP 

DVX 

TAD 

AC  1 L 

TAD 

LORD 

CLA 

RAL 

TAD 

AC  1  H 

TAD 

HORD 

CLA 

RAR 

DCA 

OVF.RP 

TAD 

OUOL 

DCA 

LORD 

TAD 

LOC? 

DCA 

HORD 

JMS 

I  DMGRM 1 

I  SZ 

SMRF.G 

JMS 

I  ACMEGP 

JMP 

I  DYULT 

(JMKLW 

AM.OMMT 

SPA 

CLA 

77  51 

/IS  HAC  =  0? 

/YES.  UML'ERr  LOW  OH  'FRO 


/SUBTRACT  DIVISOR  FROM  DIVIDFMD 


/WAS  DIVIDEND  LARGER  THAM  DIVISOR? 
/YES:  Dl  FFEREMCE  IS  MEW  DIVIDEMD 

/ROTATE  (  LOCP»  OUOL  )  LEFT  OME 


/SHIFT  Dl  VI  DF.MD  LEFT  OME 


/SET  HP  ROUWDOI-F 
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*  ft  4  0  0 


f  40P 

0000 

DMOPY  # 

0 

/MOHXALI'F  KAC 

6401 

4653 

•  J*S 

I  A.YMTP 

/IS  t*  AC  =  0? 

a  4PP 

5P4  5 

Jxp 

EX!  T0 

/YES 

6  40  3 

1046 

TAD 

LOHD 

/IS  pAC  APPARt'MT  -«? 

*  404 

7  640 

S'.  A 

CLA 

6  405 

5P  1ft 

JMP 

OK 

A  40A 

1045 

TAD 

HOPD 

ft  407 

7510 

SPA 

ft  410 

7041 

CMA 

I  AC 

6  411 

7  7  00 

Sv.  A 

CLA 

ft  4  1  P 

5P1  6 

j-yip 

OK 

ft  4  1  3 

7360 

CLA 

ClL  CXA  C'ML 

6  414 

3653 

DC  A 

I  A>YMTP 

ft  41  5 

4654 

JXS 

I  PSKKT1 

/YES:  SHIFT  KAC  RIGHT  OM 

641ft 

3040 

OK » 

DC  A 

EXI 

ft  417 

3041 

DC  A 

AC  1 H 

ft  4P0 

1045 

TAD 

HORD 

6  4P1 

7700 

st^A 

CLA 

6  4PP 

SPPft 

■J  y-.p 

.  *3 

ft  4P3 

P04  1 

1  S' 

AC  1  H 

ft  4^4 

4  65P 

JYS 

I  AC MEG 3 

/.YAKF.  >•  AC  POSITIVE 

ft  4?  5 

104  5 

TAD 

H  ORD 

ft  4Pft 

7004 

HAL 

ft  4P7 

77  1  0 

SP4 

CLA 

/IS  AIT  OME  MOM- 'FRO? 

64  30 

5P34 

J/P 

.  ♦  4 

/YF.S:  DOME 

6431 

4P55 

J>  S 

LSH  r  T 

/MO:  SA I  {•  T  KAC  LEFT  OMF 

ft  4  3P 

PP4P 

I  S  '. 

EXI 

6  433 

5PP  5 

jyp 

.  -ft 

ft  434 

1047 

TAD 

Ol/ERP 

ft  435 

7104 

CLL 

PAL 

ft  43ft 

7P04 

CLA 

HAL 

6  437 

4P7  3 

JXS 

HMDOH K 

/RODMDOFF 

6  440 

1  040 

TAD 

EX  1 

ft  441 

7040 

CMA 

ft  44P 

3040 

DC  A 

EXI 

ft  44  3 

431  1 

JXS 

OMrLV 

6  444 

5P47 

JIXP 

.♦3 

/MO  HMDERFLOV 

6445 

3044 

EXI TP. 

DC  A 

EXP 

ft  44ft 

5600 

jyp 

1  DMORM 

ft  447 

1041 

TAD 

AC  1  H 

ft  450 

7  640 

S'.  A 

CLA 

ft  451 

4ft5P 

jxs 

1  AC MEG 3 

ft  4  5P 

5600 

AC MEG  3 . 

J.VP 

I  DMORIY 

ft  453 

6655 

AXMTP » 

AMOUMT 

ft  454 

6670 

RSHFT1  # 

RSHFT 

6.455 

00  00 

LSHH  T» 

0 

/  h  O’JR  WORD  LEFT  SHIFT 

645ft 

1047 

TAD 

OVERP 

ft  457 

7  104 

CLL 

RAL 

ft  460 

3047 

DC  A 

OVERP 

ft  4ft  1 

1  04ft 

TAD 

LORD 

6  4ftP 

7004 

PAL 

ft  463 

3046 

DCA 

LORD 

ft  464 

1045 

TAD 

HORD 

ft  465 

7004 

PAL 

J*  * 
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A  466 

3046 

DC  A 

HOHD 

A  467 

1273 

TAD 

HWDOKK 

6  HI? 

7004 

HAL 

6  47  1 

3273 

DC  A 

RMDOhF 

6472 

5666 

JMP 

I  LSHFT 

6  47  3 

0000 

RMDUF F» 

0 

6  47  4 

7  100 

CLL 

6  47  5 

1  046 

TAP 

LORD 

6  476 

3046 

DC  A 

LORD 

6  477 

7  004 

HAL 

6  5P0 

1045 

TAD 

HORD 

6  501 

7500 

SMA 

6502 

5306 

JMP 

.  +4 

6  50  3 

2044 

I  S7. 

EXP 

6  504 

7000 

WOP 

6  5P5 

7010 

RAH 

6  506 

3045 

1)C  A 

HORD 

6  507 

3047 

DC  A 

0VER2 

6  510 

5673 

JMP 

I  RMDOFF 

6  51  1 

0000 

DWFLW» 

0 

6512 

1  044 

TAD 

EXP 

6  513 

77  10 

SPA 

CLA 

6  514 

1  040 

TAD, 

EX  1 

6  515 

77  10 

SPA 

CLA 

6  516 

7  040 

CM  A 

6  517 

3334 

DC  A 

ADDOP 

6  520 

1040 

TAD 

EX  1 

6  521 

1  044 

TAD 

EXP 

6  522 

7001 

I  AC 

6  523 

7  500 

SMA 

6  524 

2334 

I  SS 

ADDOP 

6525 

5332 

JMP 

•  *5 

6  526 

7300 

CLA 

CLL 

6  527 

3045 

DC  A 

HORD 

6  530 

3046 

DC  A 

LORD 

6  531 

231  1 

I  SZ 

UNFLW 

6  532 

3044 

DC  A 

EXP 

6  533 

57  1  1 

JMP 

I  UMKLW 

6  534 

0000 

ADDOP. 

0 

6535 

7300 

CLA 

CLL 

6  536 

1047 

TAD 

0VER2 

6  537 

1043 

TAD 

ODER  1 

6  54P 

3047 

DC  A 

0VER2 

6  541 

7004 

HAL 

6  542 

1046 

TAD 

LORD 

6  543 

1042 

TAD 

AC  1  L 

6  544 

3046 

DC  A 

LORD 

6  545 

7  004 

RAL 

6  546 

1045 

TAD 

HORD 

6  547 

1041 

TAD 

AC  1  H 

6  550 

3045 

DC  A 

HOHD 

6  551 

7004 

HAL 

6  552 

127  3 

TAD 

RWDOr  K 

6  553 

327  3 

DCA 

RWDOFK 

6  554 

57  34 

JMP 

I  ADDOP 

1 


/ADD  C  <  AC  )  TO  POSITIVE  FAC 


/I  F  F^C  BIT  0  IS  S  FT  •  SHUT 
/HORD  WORD  RIG-IT  OWF 


/EXPOWEWT  HWDERFLOV  CHECK 


/IS  SUM  POSITIVE? 

/WERE  FXP  AMD  EX  1  BOTH  WFCATIV^? 
/WO 

/YES»  MWDFFFLOV •  SET  FAC  =  9 


/ 1  WCREMFWT  POINTER 


/ADD  OP  TO  <  PMPOFF* FAC ) 
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/ADD  C(ACMFG)  TO  IP  ♦  ‘•AC 
/OVFhrLOW  1  S  I  v)  RMDOFh 


ft  555 

0000 

X10. 

0 

655ft 

1047 

TAD 

0VEH2 

ft  5  57 

3043 

DC  A 

OVER  1 

ft  560 

1046 

TAD 

LORD 

6  5ftl 

3042 

DC  A 

AC  1 L 

ft  5ft2 

1045 

TAD 

HORD 

6  5ft3 

3041 

DC  A 

AC  1 H 

ft  564 

3273 

DCA 

RMDOFF 

ft  5ft5 

4255 

JMS 

LSHFT 

ft  Sftft 

4255 

JMS 

LSHFT 

ft  5ft7 

4334 

JMS 

ADDOP 

ft  57  0 

4255 

JMS 

LSHFT 

6  571 

1652 

TAD 

1  AC MEG 3 

ft  572 

3043 

DCA 

OVER  1 

6  573 

3042 

DCA 

AC  1  L 

6  57  A 

3041 

DCA 

AC  1  H 

ft  57  5 

4334 

JMS 

ADDOP 

6  57ft 

1273 

TAD 

RMDOFF 

ft  577 

57  55 

*6600 

JMP 

I  X10 

ft  600 

0000 

DADD# 

0 

6601 

3050 

DCA 

QUOL 

ft  602 

4255 

JMS 

AMOUNT 

6603 

52  30 

JMP 

GETOP 

ft  604 

1051 

TAD 

LOCI 

ft  605 

7650 

SMA 

CLA 

6  60ft 

5600 

JMP 

I  DADD 

6  607 

1040 

TAD 

EX  1 

6610 

7041 

CM  A 

I  AC 

ft  61  1 

1044 

TAD 

EXP 

6612 

7450 

SMA 

ft  613 

5245 

JMP 

Oh  H SET 

6614 

327  0 

DCA 

RSHFT 

6615 

1  27  P 

TAD 

RSHFT 

6  616 

7  5PP 

SMA 

ft  617 

7041 

CM  A 

I  AC 

6  620 

3255 

DCA 

AMOUMT 

6  621 

1255 

TAD 

AMOUMT 

ft  622 

1327 

TAD 

C24 

6  623 

7700 

SMA 

CLA 

ft  624 

5241 

JMP 

ALIG-M 

6  625 

1270 

TAD 

RSHFT 

6626 

7700 

SMA 

CLA 

6  627 

5236 

JMP 

GETOP* ft 

6  630 

1040 

GETOP* 

TAD 

EX  1 

6  631 

3044 

DCA 

EXP 

6  632 

104  1 

TAD 

AC  1H 

6  633 

3045 

DCA 

HORD 

6  634 

1042 

TAD 

AC  1 L 

6  635 

3046 

DCA 

LORD 

ft  636 

7040 

CM  A 

6  637 

3050 

DCA 

QUOL 

ft  640 

5600 

JMP 

I  DADD 

6  641 

127  0 

ALIGN* 

TAD 

RSHFT 

/EXIT  WITH  C< RMDOFF)  IN  AC 

/ADD  OP  TO  FAC 

/IS  FAC  =0? 

/YES •  GET  OP 

/IS  OP  =  0? 

/YES  •  DOME 

/  ARF  EXPONFNTS  EQUAL? 


/YES 

/NGJ  CAM  OP  A\D  FAC  RF  ALI  GMFD? 


/YFS 

/MO*  WHICH  IS  LARGER? 
/FAC 

/OPJ  GET  OP 


/I  h  FAC  =  P  OR  IF  NO  ALIGNMENT 
/POSSIBLE*  SET  OMOL  =  7777 


6  64  3 

7200 

CLA 

6  644 

4270 

JMS  RSHFT 

A  A45 

7  34  0 

OH- SET. 

CLA  CLL  CM4 

/SH  1  h  T  FAC  AND  OP  RIGHT  ONE 

A  A4A 

3255 

DC A  AMOUNT 

A  647 

4270 

JMS  RSHFT 

6  650 

7360 

CLA  CLL  CMA  CML 

6  651 

3255 

DCA  AMOUNT 

6  652 

427  0 

JMS  RSHFT 

6  653 

47  32 

JMS  I  ADDUP 

6  654 

5600 

JMP  I  DADD 

6  655 

0000 

AMOUNT. 

0 

/TEST  IF  FAC  =  0 

6656 

1045 

TAD  HORD 

6  657 

7  640 

SZA  CLA 

/IF  YES.  EXIT  NORMALLY 

6660 

5266 

JMP  .♦6 

6  661 

1046 

TAD  LORD 

6  660 

7640 

SZA  CLA 

6  663 

5266 

JMP  .+3 

6  664 

1047 

TAD  0VER2 

6  665 

7640 

SZA  CLA 

6  666 

2255 

ISZ  AMOUNT 

/IF  NO.  EXIT  TO  SECOND  INSTRUCTION 

6  667 

5655 

JMP  I  AMOUNT 

6  670 

0000 

RSHFT. 

0 

/THREE  WORD  RIGHT  SHIFT 

667  1 

7420 

SNL 

/IF  LItNK  =  1.  SHIFT  FAC 

6672 

1331 

TAD  TAGP 

/IF  LINK  =  0.  SHIFT  OP 

6  67  3 

1330 

TAD  TAG  1 

6  674 

3051 

DCA  LOCI 

6  67  5 

1255 

TAD  AMOUNT 

/NEGATIVE  OF  AMOUNT  OF  SHIFT 

6  67  6 

7  04  1 

CMA  I  AC 

6  677 

1451 

TAD  I  LOCI 

6  7  00 

3451 

DCA  1  LOCI 

/EXPONENT  SHIFTED 

6701 

2P51 

ISZ  LOCI 

/SET  UP  MANTISSA  ADDRESSES 

6702 

1051 

TAD  LOCI 

6703 

7001 

I  AC 

6704 

3052 

DCA  L0C2 

6705 

1052 

TAD  L0C2 

6  706 

7001 

I  AC 

6  707 

3053 

DCA  LOC3 

6710 

7  100 

SHIFT. 

CLL 

6711 

1451 

TAD  I  LOCI 

6  7  12 

7510 

SPA 

6713 

7  020 

CML 

6714 

7010 

RAR 

6715 

3451 

DCA  I  LOCI 

6716 

1452 

TAD  I  L0C2 

6717 

7010 

RAR 

6  720 

3452 

DCA  I  L0C2 

6721 

1453 

TAD  I  LOC3 

6722 

7010 

RAR 

6723 

3453 

DCA  I  LOC3 

6724 

2255 

ISZ  AMOUNT 

6725 

5310 

JMP  SH I  FT 

6726 

567  0 

JMP  I  RSHFT 

6  727 

0030 

C24. 

0030 

6730 

0044 

TAG  1 » 

EXP 

6731 

7774 

TAG2. 

EX  1 -EXP 

6  7  32 

6534 

ADDUP. 

ADDOP 
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6  7  33 

7  1  17 

TABLE  1 » 

SBH- 

1 

67  34 

7  143 

ADD- 

1 

6735 

7  14? 

SUB- 

1 

6736 

7  150 

MUL- 

1 

6  7  37 

6301 

D1  V- 

1 

6740 

7077 

GET- 

1 

6  741 

7  106 

P'JT- 

1 

6742 

7  144 

NRM  - 

1 

6743 

0000 

DMPY  # 

0 

*  7  44 

3050 

DC  A 

QUOL 

6  745 

3052 

DC  A 

LOC? 

6  746 

1371 

TAD 

CN  1  2 

6  7  47 

3255 

DC  A 

AMOUNT 

6  7  50 

7  100 

CLL 

6751 

1050 

TAD 

QUOL 

6  75? 

7010 

RAR 

6753 

3050 

DCA 

QUOL 

6  7  54 

1052 

TAD 

L0C2 

6755 

7420 

SNL 

6  7  56 

5361 

JMP 

.♦3 

6  7  57 

7  100 

CLL 

6  7  60 

1051 

TAD 

LOCI 

6761 

7010 

RAR 

6  7  62 

305? 

DCA 

L0C2 

6  763 

2255 

1SZ 

AMOUNT 

6  764 

5351 

JMP 

DMPY +  6 

6765 

1050 

TAD 

QUOL 

6766 

7010 

RAR 

6767 

7  100 

CLL 

6770 

57  4  3 

JMP 

I  DMPY 

677  1 

7764 

CN  1 2» 

7764 

6  772 

0000 

SQAHE* 

0 

6773 

44P7 

JMS 

I  0007 

6  774 

6770 

KPIJT 

I  CN  1 2 

6775 

37  7  0 

FMPY 

I  CN  1? 

6  776 

0000 

FEXT 

6777 

5772 

JMP 

I  SCARE 

*7000 

7  000 

0000 

FPNT » 

0 

7  001 

7600 

7600 

7  002 

3043 

DCA 

OVER  1 

7  P03 

3047 

DCA 

OVER? 

7  004 

3051 

DCA 

LOCI 

7  005 

1600 

TAD 

I  FPNT 

7006 

0212 

AND 

•  *4 

7  007 

7  650 

SNA 

CLA 

7  010 

5213 

JMP 

.♦3 

7  011 

1201 

TAD 

FPNT  + 1 

7  012 

0200 

AND 

FPNT 

7  013 

3260 

DCA 

NEG 

7014 

1201 

TAD 

FPNT* 1 

7  015 

7040 

CMA 

7  016 

0600 

AND 

I  F'PNT 

7  017 

1260 

TAD 

NEG 

7  020 

3?60 

DCA 

NEG 

/OPCODE  A  PDF'  ESS  TaRLE 


/MULTIPLY  AC  BY  LOCI 


/EXIT  WITH  LESS  SI  GNI  El  CANT 


/TWELVE  BITS 
/SI GNI FICANT 

/F.P.  SQUARE 


IN  AC  AND  MORE 
31 TS  IN  LOOP 


/  K  •  P  •  INTERPRETER 


/GET  ADDRESS  REFERENCED 

/PAGE  0? 

/YES 

/BITS  0»--4  GIVE  PAGE  ID 


/ADDRESS 


7  PP1 

1P5S 

TAD 

Ml 

7  PPP 

P6PP 

AMD 

I  KPMT 

7  OPT 

7  6SP 

SMA 

CLA 

7  PP4 

SPP7 

JM  P 

.  A 

7  0P5 

16Ap 

TAD 

I  MEG 

7  PP6 

3P6P 

DC  A 

MEG 

7  PP7 

1 P6P 

TAD 

MEG 

7  0  30 

301  S 

DC  A 

AIJT1 

7  031 

1  *60 

TAD 

I  MEG 

7  P3P 

30  AP 

DCA 

EX  1 

7  033 

1  A  1  S 

TAD 

1  AUT1 

7  P3A 

7  A  AP 

SZ  A 

7  035 

PPS1 

IS? 

LOCI 

7  036 

3PA  1 

DCA 

AC  1 H 

7  037 

1  ^  1  6 

TAD 

I  AUT1 

7  PAP 

7  AAP 

SZA 

7  PA  1 

PP51 

ISZ 

LOCI 

7  PAP 

30A? 

DCA 

AC  1 L 

7  0A3 

1  60P 

TAD 

I  KPMT 

7  PA  A 

0PP7 

AMD 

000  7 

7  PAS 

7  1  P  6 

CLL 

RTL 

7  0A6 

7006 

RTL 

7  PA7 

1  P  56 

TAD 

TA3L1 

7  P5P 

3015 

DCA 

AHT1 

7  PS1 

1  A1  5 

TAD 

I  A«JT1 

7  PSP 

3015 

DCA 

A’JTl 

7  PS3 

PP  00 

I  SZ 

KPMT 

7  PSA 

5A15 

JMP 

I  AtJTl 

7  PSS 

0  APP 

Ml  » 

PA00 

7  PS6 

67  30 

TA3L1  . 

TABLE 1-1 

7  PS7 

57  7  A 

TABLP. 

TA3LEP+ 1 3 

7  060 

0000 

MEG » 

0 

7061 

7  300 

CLA 

CLL 

7  06P 

1  PA3 

TAD 

OVER  1 

7  0  63 

7  PA  1 

CM  A 

I  AC 

7  P6A 

3PA3 

DCA 

ODER  1 

7  P6S 

1  PAP 

TAD 

AC  1  L 

7  066 

7  PAP 

CM  A 

7  067 

7  A  30 

SZL 

7  070 

7  101 

CLL 

I  AC 

7  07  1 

30AP 

DCA 

AC  1  L 

7  07  P 

1  PA  1 

TAD 

AC  1  H 

7  07 3 

7  P  AO 

CM  A 

7  07  A 

7  A  3P 

SZL 

7  07  S 

7  101 

CLL 

I  AC 

7  07  6 

3PA1 

DCA 

AC  1  H 

7  P77 

5660 

JMP 

I  MF.G 

7  100 

1  PAP 

GET* 

TAD 

EX  1 

7  101 

30AA 

DCA 

EXP 

7  10P 

1  PA  1 

TAD 

AC  1  H 

7  103 

30A5 

DCA 

HOHD 

7  1  PA 

1  OAP 

TAD 

AC  1  L 

7  1  B5 

3PA6 

DCA 

LORD 

7  106 

5PP 1 

.JMP 

KPMT+ 1 

7  1P7 

1  PAA 

POT* 

TAD 

EXP 

7  110 

366P 

DCA 

I  MEG 

/I MDIRFCT? 

/MO 

/YFSJ  GET  DIRECT  APDRFSS 

/MOVE  r.p.  WORD  FROv  ADDRESS  TO  OP 
/AMD  TFST  IK  OP  =  P 

/IK  OP  =  P»  LOCI  =  P 

/GFT  OPCODE 

/GET  EMTRY  FROM  TABLE 

/GO  TBERF. 

/TABLE P  -  MMSBR  -  P 
/MEGATE  OP 


/OPCODE  5 


/OPCODE  6 


»T  •  * .  ' 


7  111 

12*0 

TAP  NEG 

7  1  1 2 

3015 

DC A  AUT1 

7  113 

1045 

TAP  HORP 

7  114 

3415 

DCA  1  AUT 1 

7  115 

1046 

TAD  LORD 

7  115 

34  15 

DCA  1  At  IT  1 

7  117 

5201 

JMP  FPNT+1 

7  120 

1260 

SHR, 

TAD  NEG 

/OPCODE  0 

7  121 

7450 

SNA 

/EX  I T? 

7  122 

5500 

JMP  I  KPN  T 

/YES 

7  123 

1  34Q 

TAD  MNSBR 

/NO:  C“tECK  CODE 

7  124 

7  640 

SMA  S^ A 

7  125 

740? 

HLT 

/UNPEUNFP  SUBROUTINE 

7  125 

1257 

TAD  TABL2 

/GET  ENTRY  FRO*  T4PLE 

7  127 

3015 

DCA.  AUT  1 

7  130 

1415 

TAD  I  AUT  1 

7  131 

3015 

DCA  AUT 1 

7  132 

1200 

TAD  FPMT 

/  Sa  VE  POINTER:  S'lBROUTINES 

7  133 

3341 

DCA  SAV1 

/CAN  USE  F.P.  TO  DEPTH  ONE 

7  134 

4415 

JMS  1  AUT 1 

/JMS  TO  SUBROUTINE 

7  1  35 

7200 

CLA 

7  1  35 

1  341 

TAD  SAU1 

/RESET  POI NTFR 

7  1  37 

3200 

DCA  FPNT 

7  140 

5201 

JMP  FPNT-*- 1 

7  141 

0000 

SAV1  . 

0 

7  142 

7763 

MNS3F* 

7763 

/NEGATIVE  OF  NO.  Oh  SUBROUT  I NES 

7  143 

4260 

sue* 

JMS  NEG 

/OPCODE  2 

7  144 

47  47 

ADD* 

JMS  I  FLAD 

/OPCODE  1 

7  145 

47  60 

NRM, 

JMS  I  D.N0RM2 

/OPCODE  7 

7  145 

5201 

JMP  FPNT+ 1 

7  147 

6600 

KLAD, 

DADD 

7  150 

6400 

DN0RM2 , 

DNORM 

7  151 

47  54 

M1JL* 

JMS  I  UNFLW2 

/OPCODE  3 

7  152 

4755 

JMS  I  MPLY 

7  153 

5201 

JMP  h  PNT+ 1 

7  154 

651  1 

UN  h  LW2 » 

UNFLW 

7  155 

6200 

MPLY  » 

DMULT 

7  155 

0000 

SQROT » 

0 

/ F *  P •  SQUARE  ROOT 

7  157 

1341 

TAD  SAU1 

/SHIFT  POINTER  TO  USE  LOG 

7  1  50 

3  37  2 

DCA  TYPOtJT 

/AND  EXP  SUBROUTINES  HERE 

7  151 

4407 

JMS  I  0007 

7  152 

0007 

LOG 

7  153 

477  1 

FDIV  I  DOS 

7  154 

0006 

EXPT 

7  155 

0000 

FEXT 

7  155 

1372 

•TAD  TYPOUT 

7  157 

334  1 

DCA  S AO  1 

7  170 

57  56 

JMP  1  SQROT 

7  17  1 

6134 

DOS* 

TWO 

7  172 

0000 

TYPOUT. 

0 

7  173 

6046 

TLS 

7  174 

6041 

TSF 

7  175 

5374 

JMP  . -  1 

7  175 

7300 

CLA  CLL 

7  177 

5772 

JMP  I  TYPOtJT 

■:•:-! 


.*  4 


M 


-VI 


UJ 
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>v 


•  .'•  w  /•  %  ;N  .  *  . 

-» V  V V. 


*7200 


7  PPP 

PPPP 

O’JTPVT » 

P 

7201 

3047 

DC  A 

OVKHP 

7  PPP 

3370 

DCA 

FiEADI  V 

7  PP3 

1045 

TAD 

HORD 

7  204 

7700 

SMA 

CLA 

7PP5 

5210 

JMP 

•  *3 

7  206 

4753 

JMS 

1  ACVEG4 

7  PP7 

1333 

TAD 

CM  I VUS 

7  PI  P 

1  334 

TAD 

CPLUS 

7  PI  1 

3743 

DCA 

I  BUFADD 

7  PIP 

4736 

JMS 

I  AMVT3 

7  P  1  3 

5P40 

JMP 

F0 

7  214 

1  044 

RA.VGE. 

TAD 

EXP 

7  215 

7450 

SVA 

7216 

5235 

JMP 

ROUVD 

7  217 

7700 

SMA 

CLA 

7  220 

5230 

JMP 

REDUCE 

7  221 

4407 

JMS 

I  0007 

7  222 

3637 

FMPY 

’  I  TEV 1 

7  223 

0000 

KEXT 

7  224 

7240 

CLA 

CMA 

7  225 

137  0 

TAD 

READI V 

7  226 

337  0 

DCA 

READI V 

7  227 

5214 

JMP 

RAVGE 

7  23P 

4651 

REDUCE. 

JMS 

I  DVTEV 1 

7231 

2  37  0 

I  SZ 

READI V 

7  232 

1044 

TAD 

EXP 

7  233 

7740 

SMA 

SZA  CLA 

7  234 

5230 

JMP 

REDUCE 

7  235 

47  54 

ROUVD. 

JMS 

I  RVDOT 

7236 

524  3 

JMP 

.  *5 

7  237 

7  500 

TEV  1 . 

TEtV 

7  24P 

7040 

F0. 

CM  A 

7  241 

3044 

DCA 

EXP 

7  242 

2370 

I  SZ 

READI  V 

7  243 

1  343 

TAD 

BUFADD 

7  244 

3P15 

DCA 

AUT 1 

7  245 

4755 

JMS 

I  DECML 

7  246 

1343 

TAD 

BUFADD 

7  247 

3015 

DCA 

AtJT  1 

7  25P 

1  370 

TAD 

READI  V 

7  251 

7510 

DVTEV  1  . 

SPA 

7  2  5? 

7  P00 

CLA 

7  253 

1054 

TAD 

VDF.C 

7  254 

7041 

CM  A 

I  AC 

7  P55 

1055 

TAD 

VDI  G 

7  256 

7510 

SPA 

7  257 

5321 

JMP 

FRMERR 

7  26P 

7450 

SVA 

7  261 

5270 

JMP 

.  *7 

7  0^2 

7041 

CMA 

I  AC 

7263 

3053 

DCA 

L0C3 

7  264 

1335 

TAD 

CSPCE 

7  265 

4337 

JMS 

OUTT 

/OUTPUT  FAC 

/  F  ORM  AT  SPEC.  HAS  BFFM  STORED  IV 
/  VDEC  (VO.  OF  J)I  GITS  TO  FIGHT  OF 
/DEC.  PT>  AMD  VDIG  (TOTAL  VO.  OF 
/DIGITS)  PRIOR  TO  FVTRY 

/MAKE  FAC  POSITIVE 


/SIGV  (MIVUS  OP  SPACE)  I  VTO  RMKFFR 
/IS  FAC  =  0? 

/YES 

/VO.  MAKE  FAC  IVTO  FAC  *  *  (  IP'**!*)* 
/WHERE  PI.  I  <  FAC  *  <  1.0 


/MULTIPLY  FAC  BY  IP 


/DECREMEVT  COVVTF.R 

/DIVIDE  FAC  BY  IP 
/ I VCFEMEVT  COVVTER 

/IS  FAC  *  IV  RAVGF? 

/VO.  COVTIVUE 

/YES.  ROMVDOFF  OUTPUT 


/SET  VALUES  FOR  FAC  =  P 


/DATA  WILL  VOT  FIT  FORMAT 


/OUTPUT  LEADIVG  SPACES 


7  266 

2053 

ISZ  L0C3 

7  P67 

5P64 

JMP  .-3 

7  P70 

1743 

TAD  I  BIJF  ADD 

7  27  1 

4463 

JMS  I  TYPE 

7  27  P 

1  370 

TAD  READIM 

7  27  3 

7510 

SPA 

7  274 

5312 

JMP  MEGEXP 

7  P7  5 

7450 

SNA 

7  27  6 

5305 

JMP  .♦7 

7  P77 

7041 

CMA  I  AC 

7  300 

3044 

DC A  EXP 

7  301 

4360 

JMS  GETT 

7  30P 

4337 

JMS  OUTT 

7  303 

2044 

I SZ  EXP 

7  304 

5301 

JMP  .-3 

7  305 

1356 

TAD  CPER 

7  306 

4463 

JMS  I  TYPE 

7  307 

4360 

JMS  GETT 

7  310 

4337 

JMS  OUTT 

7  311 

5307 

JMP  .-2 

7  312 

3044 

MEGEXP. 

DC  A  EXP 

7313 

1356 

TAD  CPER 

7  314 

4463 

JMS  I  TYFE 

7  315 

4337 

JMS  OUTT 

7  316 

P044 

ISZ  EXP 

7  317 

5315 

JMP  .-P 

7  320 

5307 

JMP  MEGEXP- 3 

7  321 

1054 

F'RMERR. 

TAD  M DEC 

7  322 

7700 

SMA  CLA 

7  323 

5327 

JMP  . ♦A 

7  324 

7  144 

CLL  CMA  RAL 

7  325 

4337 

JMS  OUTT 

7  326 

5324 

JMP  .-2 

7  327 

7240 

CLA  CMA 

7  330 

1054 

TAD  MDEC 

7  331 

3054 

DC A  NDEC 

7  332 

5250 

JMP  DVTEN1-1 

7  333 

0015 

CM  IN US* 

0255-0240 

7  334 

0240 

CPLUS. 

0240 

7  335 

7  7  60 

CSPCE. 

0240-0260 

7  336 

6655 

AMMT3. 

AMOUNT 

7  337 

0006 

OUTT. 

0 

7  340 

1357 

TAD  CZERO 

7  341 

4463 

JMS  I  TYPE 

7  342 

2051 

ISZ  LOCI 

7  343 

57  37 

BUF'ADD* 

JMP  I  OUTT 

7  344 

2053 

ISZ  L0C3 

7  345 

5350 

JMP  .+3 

7  346 

1357 

TAD  CZERO 

7  347 

44  63 

JMS  I  TYPE 

7  350 

1061 

TAD  SWIT1 

7  351 

7  640 

SZA  CLA 

7  352 

4464 

JMS  I  CHLF 

7  353 

5600 

ACM EG 4 » 

JMP  I  OUTPUT 

7  354 

5512 

RMDOT » 

RMDOUT 

7  355 

7533 

DECML » 

DECMAL 

/OUTPUT  SIGN) 

/FOR  FAC  >  0.1:  OUTPUT  DIGITS 


/DECIMAL  POINT 

/FOR  FAC  <  O.l:  OUTPUT  DIGITS 
/OUTPUT  ZEROES  RIGHT  OF  DEC.  PT* 

/CAM  LEFT-SHIFTED  FORMAT  FIT? 
/YES 

/MO!  OUTPUT  DECIMAL  POINTS 
/SHIFT  FORMAT  ONE  SPACE  LEFT 


/OUTPUT  DIGIT  I M  AC 

/IS  FORMAT  FILLED? 

/YES*.  WAS  FAC  =  0? 
/MO 

/YESS  OUTPUT  A  ZERO 
/IS  CR-LF  WAMTED? 
/YES 
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V  7  356 

0256 

CPEh  * 

0256 

7  357 

0P60 

CSERO. 

0260 

7  360 

0000 

GFTT  * 

0 

/GET  DIGIT  FR Ov  BUFFER 

•  7  361 

2052 

ISZ 

L0C2 

jj  7  362 

5366 

JMP 

.  *4 

/GETS  FIRST  6  DIGITS  FROM  BUFFER 

1  7  363 

7P40 

CLA 

CMA 

/GIVES  0  FOR  ALL  FURTHER  DIGITS 

^  7  364 

3052 

DCA 

L0C2 

/REQUESTED 

7  365 

5760 

JMP 

I  GETT 

v  7  366 

1415 

TAD 

I  AMT  1 

;  7  367 

57  60 

JMP 

I  GETT 

■  7  37  0 

0000 

READI  N# 

0 

J  7  37  1 

6031 

KSF 

s  7  37P 

537  1 

JMP 

.  -1 

*;  7  37  3 

6036 

KRB 

•'  7  37  4 

6046 

TLS 

7  37  5 

6041 

TSK 

|  7  37  6 

5375 

JMP 

.-1 

£  7  377 

577  0 

JMP 

1  READI  N 

} 

ji 

*7400 

4  7  40P 

0000 

INPVT# 

0 

/INPUT  TO  FAC 

1  7401 

7P40 

CLA 

CMA 

j  7  4PP 

3052 

DCA 

LOCP 

/PERIOD  SWITCH  SET  TO  7777 

|  7  403 

127  4 

TAD 

C35 

%  7  404 

3044 

DCA 

EXP 

2  7  405 

3045 

DCA 

HORD 

>  7  406 

3046 

DCA 

LORD 

jj  7  407 

3047 

DCA 

OVER? 

|  7  410 

7040 

CMA 

!  7  411 

3053 

DCA 

LOC3 

/SIGN  SWITCH  SET  TO  7777 

;  7  412 

3015 

DCA 

AMT  1 

3  7413 

4315 

JKS 

IN 

/GET  CHARACTER 

:  7414 

1051 

TAD 

LOCI 

7  415 

1275 

TAD 

MSPCE 

7  416 

7450 

SNA 

'  7  417 

5213 

JMP 

•  -4 

/IGNORE  LEAPING  SPACES 

,  7  4P0 

1276 

TAD 

MPLMS 

J  7  421 

7450 

SNA 

!  7  422 

5227 

JMP 

DATA 

/PLUS  SIGN;  DIGIT  NE*T 

J  7423 

1277 

TAD 

MM IN US 

1  7  424 

7  640 

SZk 

CLA 

/MINUS  SIGN? 

'  7  425 

5230 

JMP 

DATA* 1 

/NO 

J  7  426 

3053 

DCA 

LOC3 

/yes;  SET  SIGN  SWITCH  TO  0 

7  427 

4315 

DATA# 

JMS 

IN 

/GET  CHARACTER 

7  430 

1051 

TAD 

LOCI 

7  431 

1  303 

TAD 

M27P 

1  7  43? 

7  500 

SMA 

7  433 

5247 

JMP 

NODIG 

/NOT  A  DIGIT 

7  434 

1  304 

TAD 

C  1  0 

7  435 

7510 

SPA 

7  436 

5247 

JMP 

NODI  G 

/NOT  A  DIGIT 

7  437 

3665 

DCA 

I  AC N EG 5 

/DIGIT 

|  7  440 

2015 

I  SZ 

AMT  1 

7  441 

4775 

JMS 

I  MULI0 

/CONTINUE  CONVERSION  TO  «T NARY 

7  44P 

1045 

TAD 

HORD 

7  443 

0247 

AND 

NODI  G 

7  AAA 

7  ft  A'/ 

SZ  A 

CLA 

7  AAS 

7  ARP 

HLT 

7  44ft 

SPP7 

.IMP 

DATA 

7  AA7 

7  ftPP 

MODI G  » 

7  ftPP 

7  450 

1PS1 

TAD 

LOCI 

7  A51 

1  3P5 

TAD 

MPER 

7  ASP 

7  ftAP 

SEA 

CLA 

7  A53 

SPS7 

JMP 

FI  W 

7  ASA 

3P1S 

DCA 

AUT1 

7  ASS 

3  PSP 

DC  A 

LOCP 

7  AS* 

SPP7 

.IMP 

data 

7  AS7 

A7  3P 

r  I  M  » 

JMS 

I  DWORv  3 

7  A ftP 

PPS3 

I  SZ 

LOC3 

7  Aft  1 

A  ft  ft  S 

JMS 

I  ACMEGS 

7  462 

PPSP 

1  sz 

LOCP 

7  463 

1P1  5 

TAD 

Aim 

7  AftA 

7  ASP 

SMA 

7  A6S 

SftPP 

ACMEGS. 

.JMP 

I  IMPVT 

7  4ft6 

7  PA  1 

CIA 

7  4ft7 

3315 

DCA 

I  M 

7  47P 

A3  1  P 

JMS 

DI VTEM 

7  A71 

P31S 

I  SZ 

IM 

7  47P 

SP7P 

JMP 

.-P 

7  47  3 

5ftPP 

JMP 

I  IMPVT 

7  A7  A 

0PA3 

C35. 

PPA3 

7  A7S 

7  SAP 

iY  S  P  C  F. » 

-PAP 

7  A7  ft 

77  6  5 

MPLUS. 

P4P- 

P  S3 

7  A77 

7776 

MMIMUS. 

P53- 

P55 

7  5PP 

PPP4 

TEM, 

PPPA 

7  5P1 

PAPP 

PAPP 

7  5PP 

PP.PP 

PPPP 

7  503 

7  SP6 

M  P  7  P  » 

-P7P 

7  SPA 

PP1P 

C1P, 

P7P- 

Pfi* 

7  SOS 

7  SPP 

MPEP. 

-256 

7  506 

7  API 

MRS OUT  » 

-377 

7  SP7 

PI  6P 

MCR. 

377- 

PIS 

7  SIR 

PPPP 

DI VTEM. 

P 

7  511 

44P7 

JMS 

I  PPP7 

7  SIP 

A3PP 

EDI  V 

TEM 

7  S 1  3 

PRPR 

FEXT 

7  51  A 

57  IP 

JMP 

I  DI VTEM 

7  515 
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